<%@ Language=VBScript%>
<% 
	Session("FormName")="F11"
%>
<!--#include file=..\checkSession.inc-->
<!--#include file=..\getFormName.inc-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title></title>
</head>
<!--#include file=..\jvGrid.inc-->
<!--#include file=..\vbFunction.inc-->
<!--#include file=..\jvFunction.inc-->
<!--#include file="..\pageSelected.inc"-->
<%	
	'set Conn=server.CreateObject("ADODB.Connection")
	'Conn.Open Application("StrConn")
	
	Set ClsFun=server.CreateObject("Vinalines.ClsFunction")

	CheckAdd=request.form("CheckAdd")
	

	Dim bLink 
	mode=Request("mode")
	bComm=Request("bComm")

	if bComm="detail" then		
		bMa=Request("bMa")
		bMacu=Request("bMacu")
		sSQL="Select * from chucdanh where machucdanh Like '"& bMa &"'"
		Set RecDL=server.CreateObject("ADODB.Recordset")
		RecDL.CursorType=3
		RecDL.CacheSize=5
		RecDL.Open sSQL,Conn
		if RecDL.RecordCount then		
			bTencu=RecDL("tenchucdanh")
			bTen=RecDL("tenchucdanh")
			bghichu=RecDL("Ghichu")
			Loaitim=Request("Loaitim")
			bsearch=Request("bsearch")
		end if
		RecDL.Close
		set RecDL=nothing
	else
		bMa=Request("bMa")
		bMacu=Request("bMacu")
		bTencu=Request("bTencu")
		bTen=Request("bTen")
		bghichu=Request("bghichu")
		Loaitim=request("Loaitim")
		bsearch=request("bsearch")
	end if
	Dim bTempComm
	Dim bMsg
	Dim Msg	

	If Session("ClsFun").LayGiaTriQuyen(Session("Permision"),Session("FormName"),2)="1" or Session("IsAdmin") then	
		Select Case bComm
			Case "add"
				if not KTMa(bMa,bComm) then
					if not KTTen(bTen,bComm) then
						sSQL="Insert into chucdanh(machucdanh,tenchucdanh,Ghichu)values('"& ClsFun.ModiString(bMa) &"','"& ClsFun.ModiString(bTen) &"','"& ClsFun.ModiString(bghichu) &"')"
						Conn.Execute sSQL				
					else
						Msg="T&#234;n c&#225;n b&#7897; &#273;&#227; t&#7891;n t&#7841;i"
						bMsg="ten"
					end if
				else
					Msg="M&#227; c&#225;n b&#7897; &#273;&#227; t&#7891;n t&#7841;i"
					bMsg="ma"
				end if
			case "delete"
				set RecKT=server.CreateObject("ADODB.Recordset")
				RecKT.CursorType=3
				RecKT.CacheSize=5
				ssql="Select chucvu from canbo where chucvu like '"& ClsFun.ModiString(bma) &"'"
				RecKT.Open ssql,Conn
				if RecKT.RecordCount<=0 then
					sSQL="Delete from chucdanh Where machucdanh Like '"& ClsFun.ModiString(bMa) &"'"
					Conn.Execute sSQL	
				else
					Msg="M&#227; ch&#7913;c danh &#273;ang &#273;&#432;&#7907;c s&#7917; d&#7909;ng !"
				end if
			case "edit"
				if not KTMa(bMa,"edit") then
					if not KTTen(bten,"edit") then					
						on error resume next
						Conn.BeginTrans					
						sSQL="Update chucdanh set machucdanh='"& ClsFun.ModiString(bma) _
										&"',tenchucdanh='"& ClsFun.ModiString(bTen) _
										&"',Ghichu='"& ClsFun.ModiString(bghichu) _
										&"' Where machucdanh Like '" & ClsFun.ModiString(bMacu) & "'"
						Conn.Execute sSQL
						sSQL="Update Canbo set chucvu='"& ClsFun.ModiString(bma)  &"' where chucvu like '" & ClsFun.ModiString(bMacu) & "'"
						Conn.Execute sSQL
						if Err.number then
							Conn.RollbackTrans
						else
							Conn.CommitTrans
						end if
						Err.Clear
					else
						Msg="T&#234;n c&#225;n b&#7897; &#273;&#227; t&#7891;n t&#7841;i"
						bMsg="ten"
					end if
				else
					Msg="M&#227; c&#225;n b&#7897; &#273;&#227; t&#7891;n t&#7841;i"
					bMsg="ma"
				end if
		End Select
	End if
	Set Rec=server.CreateObject("ADODB.Recordset") 
	rec.CursorType = 3
	rec.CacheSize=5	
	select case request("bComm")
		case "search"	
			ssql="Select * from chucdanh where tenchucdanh like '%"& ClsFun.ModiString(bsearch) & "%' order by Machucdanh"
		case else
			Loaitim=""
			bsearch=""
			ssql="Select * from chucdanh order by Machucdanh"
	end select
	Dim nRecCount	' Number of records found
	Dim nPageCount	' Number of pages of records we have
	Dim nPage	' Current page number
	nPage=CLng(request("Page"))	
	if nPage="" then nPage=1
	rec.Open ssql,Conn
	if  rec.EOF and rec.BOF then
		nPageCount=0
	end if	
%>

<%if Msg<>"" then%>
  <% if bMsg="ma" then %>
			<center><font size=3 color=red face="Times New Roman">M&#227; ch&#7913;c danh: <%=bma%> &#273;&#227; t&#7891;n t&#7841;i</font></center>
   <%end if%>
  <% if bMsg="ten" then %>
			<center><font size=3 color=red face="Times New Roman">T&#234;n: <%=bten%> &#273;&#227; t&#7891;n t&#7841;i</font></center>
   <%end if%>
   <% if bMsg="" then %>
			<center><font size=3 color=red face="Times New Roman"><%=Msg%></font></center>
   <%end if%>
<%end if%>

<script language=VBScript runat=server>
	Function KTMa(bValue,loai)
		KTMa=false		
		if loai="add" then
			ssql="Select * from chucdanh where Machucdanh like '"& trim(ClsFun.ModiString(bValue)) &"'"
			Set RecTemp=server.CreateObject("ADODB.Recordset")
			RecTemp.Open ssql,Application("StrConn")			
			if (not rectemp.BOF) and (not RecTemp.EOF) then
				KTMa=True
			else
				KTMa=false
			end if
			set RecTemp=nothing
		end if
		if loai="edit" then
			if Lcase(bMacu)<>Lcase(bValue) then
				ssql="Select * from chucdanh where Machucdanh like '"& trim(ClsFun.ModiString(bValue)) &"'"
				Set RecTemp=server.CreateObject("ADODB.Recordset") 
				RecTemp.Open ssql,Application("StrConn")
				if (not rectemp.BOF) and (not RecTemp.EOF) then
					KTMa=True
				end if
				set RecTemp=nothing
			end if
		end if		
	End function
	Function KTTen(bValue,loai)
		KTTen=false
		if loai="add" then
			ssql="Select tenchucdanh from chucdanh where tenchucdanh like '"& trim(ClsFun.ModiString(bValue)) &"'"
			Set RecTemp=server.CreateObject("ADODB.Recordset") 
			RecTemp.Open ssql,Application("StrConn")
			if (not rectemp.BOF) and (not RecTemp.EOF) then
				KTTen=True
			end if
			set RecTemp=nothing
		end if
		if loai="edit" then
			if Lcase(bTencu)<>LCase(bValue) then
				ssql="Select Tenchucdanh from chucdanh where tenchucdanh like '"& trim(ClsFun.ModiString(bValue)) &"'"
				Set RecTemp=server.CreateObject("ADODB.Recordset") 
				RecTemp.Open ssql,Application("StrConn")
				if (not rectemp.BOF) and (not RecTemp.EOF) then
					KTTen=True
				end if
				set RecTemp=nothing
			end if		
		end if
	End function
Function Paging(ByVal intPage, ByVal intPageCount, ByVal intRecordCount)
	Dim strQueryString
	Dim strScript
	Dim intStart
	Dim intEnd
	Dim strRet
	Dim i

	If intPage > intPageCount Then
		intPage = intPageCount
	ElseIf intPage < 1 Then 
		intPage = 1
	End If
	
	If intRecordCount = 0 Then
		'strRet = "No Records Found"
	ElseIf intPageCount = 1 Then
		'strRet = "End Of Hits"
	Else
		For i = 1 To Request.QueryString.Count
			If LCase(Request.QueryString.Key(i)) <> "page" Then
				strQueryString = strQueryString & "&" 
				strQueryString = strQueryString & Server.URLEncode(Request.QueryString.Key(i)) & "=" 
				strQueryString = strQueryString & Server.URLEncode(Request.QueryString.Item(i))
			End If
		Next

		For i = 1 To Request.Form.Count
			If LCase(Request.Form.Key(i)) <> "page" Then
				strQueryString = strQueryString & "&" 
				strQueryString = strQueryString & Server.URLEncode(Request.Form.Key(i)) & "=" 
				strQueryString = strQueryString & Server.URLEncode(Request.Form.Item(i))
			End If
		Next

		If Len(strQueryString) <> 0 Then
			strQueryString = "?" & Mid(strQueryString, 2) & "&"
		Else
			strQueryString = "?"
		End If

		strScript = Request.ServerVariables("SCRIPT_NAME") & strQueryString
	
		If intPage <= 10 Then
			intStart = 1
		Else
			If (intPage Mod 10) = 0 Then
				intStart = intPage - 9
			Else
				intStart = intPage - (intPage Mod 10) + 1
			End If
		End If

		intEnd = intStart + 9
		If intEnd > intPageCount Then intEnd = intPageCount
	
		'strRet = "Page " & intPage & " of " & intPageCount & ": "
	
		If intPage > 10 Then 
			strRet = strRet & "<a href=""" & strScript
			strRet = strRet & "page=" & intPage - 10 
			strRet = strRet & """><IMG border=0 SRC=../images/prev.gif></a> "
		End If
	
		For i = intStart To intEnd
			If i = intPage Then
				strRet = strRet & "<b><font color=A90A08>" & i & "</font></b> "
			Else
				strRet = strRet & "<a href=""" & strScript
				strRet = strRet & "page=" & i 
				strRet = strRet & """>" & i & "</a>"
				If i <> intEnd Then strRet = strRet & " "
			End If
		Next
	
		If intPage <> intPageCount and intPageCount > 10 Then
			strRet = strRet & " <a href=""" & strScript
			strRet = strRet & "page=" & intPage + 10 
			strRet = strRet & """><IMG border=0 SRC=../images/next.gif></a> "
		End If
	End If
	
	Paging = strRet
End Function	
</script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function ChangePage() {
	strURL=nhom.page.value;
	window.nhom.action = strURL;
	window.nhom.submit();		
}

function SetFocus(){
	if(!nhom.TxtMa.disabled){
		document.nhom.TxtTen.focus();
	}
	else {
		document.nhom.CmdSearch.focus();
	}
}

function KTnhap(){
	var strMa
	if (nhom.TxtMa.value==""){
		alert("Bạn cần phải nhập mã");
		nhom.TxtMa.focus();
		return false;
	}

	if(daucach(nhom.TxtMa.value)){
		alert("Mã không cho phép chứa ký tự đặc biệt (',space)");
		nhom.TxtMa.focus();
		return false;
	}

	if (nhom.TxtTen.value==""){
		alert("Bạn cần phải nhập tên");
		nhom.TxtTen.focus();
		return false;
	}
	return true;
}
function CmdAdd_onclick() {
	nhom.TxtMa.value="<%=TaoMa("machucdanh","chucdanh")%>"
	//nhom.TxtMa.value="";
	nhom.TxtTen.value="";
	nhom.TxtGhichu.value="";
	nhom.CheckAdd.disabled=false;
	nhom.CheckAdd.checked=true;		
	cmdenable(false);
	Unlockdata();
	nhom.TxtTen	.focus();
	nhom.sua.value="2";
}
function cmdenable(bvalue){
	if (bvalue){
		if ("<%= Session("ClsFun").LayGiaTriQuyen(Session("Permision"),Session("FormName"),2)%>"=='1'||"<%= Session("IsAdmin") %>".toLowerCase()=='true'){
			nhom.CmdAdd.disabled= false;
		}			
		else{
			nhom.CmdAdd.disabled= true;		
		}
		nhom.CmdDelete.disabled= false;
		nhom.CmdEdit.disabled= false;
		nhom.CmdCancel.disabled= true;
		nhom.CmdOK.disabled= true;	
		nhom.CmdSearch.disabled=false;
	}
	else {
		nhom.CmdAdd.disabled= true;
		nhom.CmdDelete.disabled= true;
		nhom.CmdEdit.disabled= true;
		nhom.CmdCancel.disabled= false;
		nhom.CmdOK.disabled= false;
		nhom.CmdSearch.disabled=true;
	}	
	//nhom.CmdSearch.value="Tìm kiếm";
}

function CmdCancel_onclick() {
	cmdenable(true);
	nhom.CmdDelete.disabled= true;
	nhom.CmdEdit.disabled= true;

	nhom.CheckAdd.checked= false;
	nhom.CheckAdd.disabled= true;

	nhom.CmdSearch.value="Tì<u>m</u> kiếm";
	Lockdata();
	nhom.TxtGhichu.value="";
	nhom.TxtMa.value="";
	nhom.TxtTen.value="";
}

function Lockdata(){
	nhom.TxtMa.disabled=true;
	nhom.TxtGhichu.disabled=true;
	nhom.TxtTen.disabled=true;
}
function Unlockdata(){
	nhom.TxtMa.disabled=false;
	nhom.TxtGhichu.disabled=false;
	nhom.TxtTen.disabled=false;
}


function displaydata(){
	nhom.TxtMa.value="";
	nhom.TxtTen.value="&#225;d&#225;d";
	nhom.TxtGhichu.value="";
	return;
}


function window_onload() {
//	CmdCancel_onclick();	
}

function CmdExit_onclick() {
//	window.navigate("<%= Session("LastForm")%>");
}

function CmdDelete_onclick() {
	if (nhom.TxtMa.value==""){
		alert("Bạn hãy chọn chức danh cần xoá");
		return ;
	}
	if(!confirm("Bạn có muốn xoá không ?")){
		return false;	
	}
	ma=nhom.TxtMa.value;
	b="frmchucdanh.asp?Page="+"<%=npage%>"+"&bma="+ma+"&bComm=delete"					
	window.nhom.target="right"
	window.nhom.action=b;
	window.nhom.submit();
	//window.navigate(b);
}
function CmdEdit_onclick() {
	if (nhom.TxtMa.value==""){
		alert("Bạn hãy chọn chức danh cần xoá");
		return ;
	}
	cmdenable(false);
	Unlockdata();
	nhom.TxtMa.focus();
	<%bTempComm="edit"%>
	nhom.sua.value="1";
	nhom.Macu.value=nhom.TxtMa.value;
	nhom.Tencu.value=nhom.TxtTen.value;
}
function CmdOK_onclick() {
	if (KTnhap()){
		cmdenable(true);
		Lockdata();
		ma=nhom.TxtMa.value;
		ten=nhom.TxtTen.value;
		ghichu=nhom.TxtGhichu.value;
		macu=nhom.Macu.value;
		tencu=nhom.Tencu.value;
		bc=nhom.sua.value;
		cp=nhom.cPage.value;
		if (bc=="1"){
			b="frmchucdanh.asp?Page="+cp+"&bMacu="+macu+"&bTencu="+tencu+"&bma="+ma+"&bTen="+ten+"&bghichu="+ghichu+"&bComm=edit"		
		}
		
		else {
			b="frmchucdanh.asp?Page="+cp+"&bma="+ma+"&bTen="+ten+"&bghichu="+ghichu+"&bComm=add"					
		}
		window.nhom.target="right"
		window.nhom.action=b;
		window.nhom.submit();
		//window.navigate(b);
	}
}


function CmdLoc_onclick() {
	Unlockdata();
	nhom.TxtMa.focus();
//	nhom.sua.value="2";
}

function CmdRefresh_onclick() {
	cp=nhom.cPage.value;
	lnk="frmchucdanh.asp?Page="+cp;
	window.navigate(lnk);
}

function TxtSearch_onclick() {
}

function CmdSearch_onclick() {
	nhom.CmdAdd.disabled=true;
	nhom.CmdCancel.disabled=false;
	nhom.CmdEdit.disabled=true;
	nhom.CmdDelete.disabled=true;
	if (nhom.TxtTen.disabled){
		nhom.CmdSearch.value="Tì<u>m</u>";
		Unlockdata();
		nhom.TxtGhichu.value="";
		nhom.TxtMa.value="";
		nhom.TxtTen.value="";
		Lockdata();
		nhom.TxtTen.disabled=false;
		nhom.TxtTen.value="";
		nhom.TxtTen.focus();
		return false;
	}
	value=nhom.TxtTen.value;
	blink="frmchucdanh.asp?bsearch="+value+"&bComm=search";
	window.nhom.action=blink;
	window.nhom.target="right";
	window.nhom.submit();	
}


//-->
</SCRIPT>
<LINK href="../styles/styles.css" type=text/css rel=STYLESHEET>
<body  topmargin="0" leftmargin="0" bgcolor=#F8F9D9 style="font-family:times new roman" onload="SetFocus()">
<form name="nhom" method="POST">
	<input type="hidden" name="sua" value="">
	<input type="hidden" name="Macu" value="">
	<input type="hidden" name="Tencu" value="">
	<input type="hidden" name="cPage" value="<%=nPage%>">
	<input type="hidden" name="strURL" value="">
<p align=center><b><font FACE="Times New Roman" size="3">CẬP NHẬT CHỨC DANH</font></b>
<% if CheckAdd="ON" then %>
<!-- Buttons -->
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="font-family:arial;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: solid;border-collapse:collapse; border-left-color:#C0C0C0; border-right-color:#C0C0C0; border-top-color:#C0C0C0; border-bottom-color:#C0C0C0"  bgcolor="#BDD5D0" bordercolor="#111111">
  <tr>
	<td width="17%">
		<Button disabled name="CmdAdd" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdAdd_onclick()" accesskey="T"><U>T</U>hêm</Button></td>
    <td width="17%">
    		<Button disabled name="CmdDelete" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdDelete_onclick()" accesskey="X"><U>X</U>óa</Button>
    </td>
    <td width="17%">
 	     <Button disabled name="CmdEdit" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdEdit_onclick()" accesskey="S">
 	     <U>S</U>ửa</Button></td>
	<td width="17%">
		<Button name="CmdOK"  style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdOK_onclick()" accesskey="G"><P><U>G</U>hi nhận</P></Button></td>
    <td width="16%">
    		<Button name="CmdCancel" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdCancel_onclick()" accesskey="B"><P><U>B</U>ỏ qua</P></Button></td>
    <td width="16%">
    		<Button disabled name="CmdSearch" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdSearch_onclick()" accesskey="M"><P>Tì<u>m</u> kiếm</P></Button></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" style="Font-family:Times New Roman;font-size:12pt;BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: none;border-collapse:collapse; border-left-color:#C0C0C0; border-right-color:#C0C0C0; border-top-color:#C0C0C0; border-bottom-color:#C0C0C0"  bordercolor="#111111" bgcolor="#BDD5D0">
  <tr>
    <td width="10%">&nbsp;Mã</td>
    <td width="30%"><input type="text" name="TxtMa" value="<%=TaoMa("machucdanh","chucdanh")%>" size="22" maxLength=10 style="FONT-FAMILY: Arial;width:100%" tabindex="1"></td>
    <td width="10%" align="center">Tên</td>
    <td width="50%" colspan=2><input type="text" name="TxtTen"  size="45" maxLength=50 style="FONT-FAMILY: Arial;width:100%"  tabindex="2"></td>
  </tr>
  <tr>
  	<td width="10%">&nbsp;Ghi chú</td>
  	<td width="70%" colspan=3><input type="text" name="TxtGhichu"  size="60" maxLength=255 style="FONT-FAMILY: Arial;width:100%" tabindex="3"></td>
	<td width="20%" align="center"><label for=C1 accesskey="h">T<U>h</U>êm liên tục </label><input type="checkbox" name="CheckAdd" value="ON" checked id=C1  tabindex="4"></td>
  </tr>
</table>

<%else%>		<!--  if CheckAdd<>"ON"-->
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="font-family:arial;BORDER-BOTTOM-STYLE: none; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: solid;border-collapse:collapse; border-left-color:#C0C0C0; border-right-color:#C0C0C0; border-top-color:#C0C0C0; border-bottom-color:#C0C0C0"  bgcolor="#BDD5D0" bordercolor="#111111">
  <tr>
	<% if Session("ClsFun").LayGiaTriQuyen(Session("Permision"),Session("FormName"),2)="1" or Session("IsAdmin") then	%>
  	<td width="17%">
		<Button name="CmdAdd" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdAdd_onclick()" accesskey="T"><U>T</U>hêm</Button></td>
	<%if  bcomm<>"detail" then%>
    <td width="17%">
    		<Button disabled name="CmdDelete" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdDelete_onclick()" accesskey="X"><U>X</U>óa</Button></td>
    <td width="17%">
    		<Button disabled name="CmdEdit" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdEdit_onclick()" accesskey="S"><U>S</U>ửa</Button></td>
	<%else%>  
	<td width="17%">
		<Button name="CmdDelete" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdDelete_onclick()" accesskey="X"><U>X</U>óa</Button></td>
    <td width="17%">
    		<Button name="CmdEdit" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdEdit_onclick()" accesskey="S"><U>S</U>ửa</Button></td>
	<%end if%>
	
	<td width="17%">
		<Button disabled value="Ghi nhận" name="CmdOK" disabled=true style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdOK_onclick()" accesskey="G"><P><U>G</U>hi nhận</P></Button></td>
    <td width="16%">
    		<Button disabled value="B&#7887; qua" name="CmdCancel" disabled=true style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdCancel_onclick()" accesskey="B"><P><U>B</U>ỏ qua</P></Button></td>
    <td width="16%">
    		<Button name="CmdSearch" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdSearch_onclick()" accesskey="M"><P>Tì<u>m</u> kiếm</P></Button></td>
	<%else%>
	
    <td width="17%">
    		<Button disabled  name="CmdAdd" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdAdd_onclick()" accesskey="T"><U>T</U>hêm</Button></td>
    <td width="17%">
    		<Button disabled name="CmdDelete" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdDelete_onclick()" accesskey="X"><U>X</U>óa</Button></td>
    <td width="17%">
    		<Button disabled name="CmdEdit" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdEdit_onclick()" accesskey="S"><U>S</U>ửa</Button></td>
    <td width="17%">
    		<Button disabled  name="CmdOK" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdOK_onclick()" accesskey="G"><P><U>G</U>hi nhận</P></Button></td>
    <td width="16%">
    		<Button disabled  name="CmdCancel" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdCancel_onclick()" accesskey="B"><P><U>B</U>ỏ qua</P></Button></td>
    <td width="16%">
    		<Button name="CmdSearch" style="FONT-FAMILY: Arial;WIDTH: 100%" LANGUAGE=javascript onclick="return CmdSearch_onclick()" accesskey="K"><P>Tìm <U>k</U>iếm</P></Button></td>
    <%end if%>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" style="Font-family:Times New Roman;font-size:12pt;BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: none;border-collapse:collapse; border-left-color:#C0C0C0; border-right-color:#C0C0C0; border-top-color:#C0C0C0; border-bottom-color:#C0C0C0"  bordercolor="#111111" bgcolor="#BDD5D0">
  <% if bcomm="detail" then %>
  <tr>
    <td width="10%">&nbsp;Mã</td>
    <td width="30%"><input type="text" name="TxtMa" disabled=true value="<%=bma%>" size="22" maxLength=10 style="FONT-FAMILY: Arial;width:100%"  tabindex="1"></td>
    <td width="10%" align="center">Tên</td>
    <td width="50%" colspan=2><input type="text" name="TxtTen" disabled=true value="<%=bten%>" size="45" maxLength=50 style="FONT-FAMILY: Arial;width:100%"  tabindex="2"></td>
  </tr>
  <tr>
  	<td width="10%">&nbsp;Ghi chú</td>
  	<td width="70%" colspan=3><input type="text" name="TxtGhichu" disabled=true value="<%=bghichu%>" size="60" maxLength=255 style="FONT-FAMILY: Arial;width:100%"  tabindex="3"></td>
	<td width="20%" align="center"><label for=C1 accesskey="h">T<U>h</U>êm liên tục </label><input type="checkbox" name="CheckAdd" value="ON" disabled id=C1  tabindex="4"></td>
  </tr>
	<%else%>
	<tr>
    <td width="10%">&nbsp;Mã</td>
    <td width="30%"><input type="text" name="TxtMa" disabled=true size="22" maxLength=10 style="FONT-FAMILY: Arial;width:100%"  tabindex="1"></td>
    <td width="10%" align="center">Tên</td>
    <td width="50%" colspan=2><input type="text" name="TxtTen" disabled=true size="45" maxLength=50 style="FONT-FAMILY: Arial;width:100%"  tabindex="2"></td>
  </tr>
  <tr>
  	<td width="10%">&nbsp;Ghi chú</td>
  	<td width="70%" colspan=3><input type="text" name="TxtGhichu" disabled=true size="60" maxLength=255 style="FONT-FAMILY: Arial;width:100%"  tabindex="3"></td>
	<td width="20%" align="center"><label for=C1 accesskey="h">T<U>h</U>êm liên tục</label><input type="checkbox" name="CheckAdd" value="ON" disabled id=C1  tabindex="4"></td>
  </tr>
	<%end if%>
</table>
<%end if%> <!-- end if CheckAdd="ON"-->

<!-- Danh sach chuc danh -->
<table border="0" style="Font-family:Times new roman;font-size:12pt;BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: none;Border-color:#C0C0C0" WIDTH="100%">
  <tr>
    <td width="100%" colspan="3" bgcolor="#173584">
    <p align="center"><b><font color="#FFFFFF" size="2">DANH SÁCH CHỨC DANH</font></b></td>
  </tr>
  <tr bgcolor="#BDD5D0">
    <td width="10%" align="center"><b>Mã</b></td>
    <td width="45%" align="center"><b>Chức danh</b></td>
    <td width="45%" align="center"><b>Ghi chú</b></td>
  </tr>
  <%	
	If Not Rec.Eof Then
		nRecCount = Rec.RecordCount
		Rec.PageSize = 20
		nPageCount = Rec.PageCount
		If nPage < 1 then
			nPage = 1			
		End If
		if nPage > nPageCount Then
			nPage=nPageCount
		end if
		cnt=(pg-1)*pgsize + 1		    
		STT=1
		rec.AbsolutePage=nPage
		howmanyrecs=0
		do while not Rec.EOF and howmanyrecs<rec.PageSize
			if (cnt/2=int(cnt/2)) then
				color="#eeeecc"
			else
				color="#F8F9D9"
			end if
%>
			<tr id=mnu_<%=STT%> style="BORDER-RIGHT: #e7e7e7 1px solid; BORDER-TOP: #e7e7e7 1px solid; BORDER-LEFT: #e7e7e7 1px solid; COLOR: #666666; BORDER-BOTTOM: #e7e7e7 1px solid; HEIGHT: 21px; BACKGROUND-COLOR: <%=color%>"  onmouseover="javascript:MouseOverMenu('mnu_<%=STT%>')" onmouseout="javascript:MouseOutMenu('mnu_<%=STT%>','<%=color%>')">
			  <td width="10%"><a onmouseout="window.status='';return true" onmouseover="window.status='Ch&#7885;n th&#244;ng tin';return true" style='cursor:hand;color:blue;text-decoration: none' href="frmchucdanh.asp?page=<%=nPage%>&bma=<%=Rec("Machucdanh")%>&bComm=<%="detail"%>"><%=Rec("Machucdanh")%></a></td>

			  <td width="45%"><a onmouseout="window.status='';return true" onmouseover="window.status='Ch&#7885;n th&#244;ng tin';return true" style='cursor:hand;color:blue;text-decoration: none' href="frmchucdanh.asp?page=<%=nPage%>&bma=<%=Rec("Machucdanh")%>&bComm=<%="detail"%>"><%=Rec("Tenchucdanh")%></a></td>
			  <td width="45%"><a onmouseout="window.status='';return true" onmouseover="window.status='Ch&#7885;n th&#244;ng tin';return true" style='cursor:hand;color:blue;text-decoration: none' href="frmchucdanh.asp?page=<%=nPage%>&bma=<%=Rec("Machucdanh")%>&bComm=<%="detail"%>"><%=Rec("Ghichu")%></a></td>
			</tr>
<%			STT=STT+1
			Rec.MoveNext
			cnt=cnt+1
			howmanyrecs=howmanyrecs+1
		loop
	end if
	rec.Close
	set rec=nothing
	
%>  
</table>
 <!-- Phan trang -->
<br>
<table width="98%" cellspacing=0 cellpadding=0>
<tr>
<% if nPage > 0 and nPageCount >0 then %>  
	<td width="20%"><b>Trang&nbsp; <%=nPage%>/<%=nPageCount%></b></td>
<!-- 	<td width= "80%" align="right">
	<% if nPageCount > 1 then %>    
		Chuyển nhanh tới trang:&nbsp;
		<select name="page" style="width:45;height:23;font-size:8pt" size=1 onchange="javaScript:ChangePage()">
			<% for i = 1 to nPageCount%>	
				<% if bComm<>"search"  then
					strURL="frmchucdanh.asp?bsearch="& bsearch &"&Loaitim="& loaitim &"&page="+ cstr(i) + "&bComm="
				else
					strURL="frmchucdanh.asp?bsearch="& bsearch &"&Loaitim="& loaitim &"&page="+ cstr(i) + "&bComm=search"
				end if %>
				<option value="<%=strURL%>" <%=chkSelected(i, nPage)%>><%=i%></option>
			<% next %>    
		</select>
		</td>                                  
	<% end if %>              -->
<% 'else %>
<% end if %>
<td width= "80%" align="center"><%=Paging(nPage, nPageCount, nRecCount)%></td>
</tr>
</table>
</body>
</form>
</html>
<%
	Conn.Close
	Set Conn=nothing
	set ClsFun=nothing
%>